home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / eup.tug < prev    next >
Text File  |  1991-10-18  |  10KB  |  651 lines
  1. TUGi_macro(v1.0)
  2.  
  3. eup_MAIN
  4. {
  5.     drive(
  6.         q:
  7.     );
  8.  
  9.     Graph_wait(0);
  10.     Gscroll(0);
  11.  
  12.     Screen(3);
  13.     cls(1);
  14.     Graph_View(
  15.         Q:\DATA\HIROGRAP\HIRO4.TK4
  16.     );
  17.  
  18.     Graph_DSP();
  19.     Screen(3);
  20.     cls(0);
  21.     paletteset();
  22.     wind_init();
  23.     wrtstr(
  24.         "では、聴いていきましょ～♪"
  25.         " "
  26.         "全部の曲を聴き終える迄、結構時間が掛かりますが"
  27.         "頑張って聴いて下さいねっ☆ (^_^)ﾌｧｲﾄｯ"
  28.         " "
  29.         "             マウスをクリックしてねっ☆(^_^)"
  30.     );
  31.     mousewait();
  32.     wind_close();
  33.  
  34.  
  35.     wind_init();
  36.     wrtstr(
  37.         "  では、１曲目の演奏です。"
  38.         "  演奏する曲目は・・・"
  39.         "       \DATA\HEINZ00AHEINZ00A.EUP"
  40.         "  ですっ☆"
  41.         " "
  42.         "             マウスをクリックしてねっ☆(^_^)"
  43.     );
  44.     mousewait();
  45.     wind_close();
  46.     cls(0);
  47.     chdir(
  48.         \DATA\HEINZ00A
  49.     );
  50.     EUP_Play(
  51.         HEINZ00A.EUP
  52.     );
  53.  
  54.  
  55.     wind_init();
  56.     wrtstr(
  57.         "  では、３曲続けて演奏します。"
  58.         "  以下のディレクトリィに在るＥＵＰファイルです"
  59.         "       \DATA\MOZART"
  60.         " "
  61.         " "
  62.         "             マウスをクリックしてねっ☆"
  63.     );
  64.     mousewait();
  65.     wind_close();
  66.     cls(0);
  67.     chdir(
  68.         \DATA\MOZART
  69.     );
  70.     EUP_Play(
  71.         M40_2.EUP
  72.         M40_3.EUP
  73.         M40_4.EUP
  74.     );
  75.  
  76.  
  77.  
  78.     wind_init();
  79.     wrtstr(
  80.         "  では、６曲続けて演奏します。"
  81.         "  以下のディレクトリィに在るＥＵＰファイルです"
  82.         "       \DATA\HORIMUSI"
  83.         " "
  84.         "             マウスをクリックしてねっ☆"
  85.     );
  86.     mousewait();
  87.     wind_close();
  88.     cls(0);
  89.     chdir(
  90.         \DATA\HORIMUSI
  91.     );
  92.     EUP_Play(
  93.         TURITU.EUP
  94.         PARTY.EUP
  95.         TUMI.EUP
  96.         SILVER.EUP
  97.         NATU1.EUP
  98.         FDOAL.EUP
  99.     );
  100.  
  101.  
  102.     wind_init();
  103.     wrtstr(
  104.         "  では、３曲続けて演奏します。"
  105.         "       \DATA\PITTII"
  106.         " "
  107.         "             マウスをクリックしてねっ☆"
  108.     );
  109.     mousewait();
  110.     wind_close();
  111.     cls(0);
  112.     chdir(
  113.         \DATA\PITTII
  114.     );
  115.     EUP_Play(
  116.         BAN1.EUP
  117.         BAN2.EUP
  118.         BAN4.EUP
  119.     );
  120.  
  121.  
  122.     wind_init();
  123.     wrtstr(
  124.         "  今度は、１曲だけね(^_^)"
  125.         "  演奏する曲目は・・・"
  126.         "      \DATA\SYM6\SYM6.EUP"
  127.         "  ですっ☆"
  128.         " "
  129.         "             マウスをクリックしてねっ☆"
  130.     );
  131.     mousewait();
  132.     wind_close();
  133.     cls(0);
  134.     chdir(
  135.         \DATA\SYM6
  136.     );
  137.     EUP_Play(
  138.         SYM6.EUP
  139.     );
  140.  
  141.     wind_init();
  142.     wrtstr(
  143.         "  今度も、１曲だけよ(^_^)"
  144.         "  演奏する曲目は・・・"
  145.         "      \DATA\TRAU\TRAU.EUP"
  146.         "  ですっ☆"
  147.         " "
  148.         "             マウスをクリックしてねっ☆(^_^)"
  149.     );
  150.     mousewait();
  151.     wind_close();
  152.     cls(0);
  153.     chdir(
  154.         \DATA\TRAU
  155.     );
  156.     EUP_Play(
  157.         TRAU.EUP
  158.     );
  159.  
  160.  
  161.     wind_init();
  162.     wrtstr(
  163.         "  又々、１曲だけなの(^_^;)"
  164.         "  演奏する曲目は・・・"
  165.         "      \DATA\MONDS1\MONDS1.EUP"
  166.         "  ですっ☆"
  167.         " "
  168.         "             マウスをクリックしてねっ☆(^_^)"
  169.     );
  170.     mousewait();
  171.     wind_close();
  172.     cls(0);
  173.     chdir(
  174.         \DATA\MONDS1
  175.     );
  176.     EUP_Play(
  177.         MONDS1.EUP
  178.     );
  179.  
  180.     wind_init();
  181.     wrtstr(
  182.         "  やっぱし、１曲だけなの(^_^;)"
  183.         "  演奏する曲目は・・・"
  184.         "      \DATA\JUSTSTRT\TAIL01_A.EUP"
  185.         "  ですっ☆"
  186.         " "
  187.         "             マウスをクリックしてねっ☆(^_^)"
  188.     );
  189.     mousewait();
  190.     wind_close();
  191.     cls(0);
  192.     chdir(
  193.         \DATA\JUSTSTRT
  194.     );
  195.     EUP_Play(
  196.         TAIL01_A.EUP.EUP
  197.     );
  198.  
  199.  
  200.     wind_init();
  201.     wrtstr(
  202.         "  これも、１曲だけなの(^_^;)"
  203.         "  演奏する曲目は・・・"
  204.         "      \DATA\JUSTSTRT\TAIL01_A.EUP"
  205.         "  ですっ☆"
  206.         " "
  207.         "             マウスをクリックしてねっ☆(^_^)"
  208.     );
  209.     mousewait();
  210.     wind_close();
  211.     cls(0);
  212.     chdir(
  213.         \DATA\JUSTSTRT
  214.     );
  215.     EUP_Play(
  216.         TAIL01_A.EUP.EUP
  217.     );
  218.  
  219.  
  220.     wind_init();
  221.     wrtstr(
  222.         "  しつこぉく、１曲だけなの(^_^;)"
  223.         "  演奏する曲目は・・・"
  224.         "      \DATA\GROOVIN\TAIL02_A.EUP"
  225.         "  ですっ☆"
  226.         " "
  227.         "             マウスをクリックしてねっ☆(^_^)"
  228.     );
  229.     mousewait();
  230.     wind_close();
  231.     cls(0);
  232.     chdir(
  233.         \DATA\GROOVIN
  234.     );
  235.     EUP_Play(
  236.         TAIL02_A.EUP
  237.     );
  238.  
  239.     wind_init();
  240.     wrtstr(
  241.         "  やっぱり、１曲だけなのﾖ(^_^;;"
  242.         "  演奏する曲目は・・・"
  243.         "      \DATA\MAOU\MAOU.EUP"
  244.         "  ですっ☆"
  245.         " "
  246.         "         マウスをクリックしてねっ☆(^_^)"
  247.     );
  248.     mousewait();
  249.     wind_close();
  250.     cls(0);
  251.     chdir(
  252.         \DATA\MAOU
  253.     );
  254.     EUP_Play(
  255.         MAOU.EUP
  256.     );
  257.  
  258.     wind_init();
  259.     wrtstr(
  260.         "  ・・・・ １曲だけな・・(^_^;)"
  261.         "  演奏する曲目は・・・"
  262.         "      \DATA\CLARINET\CLARINET.EUP"
  263.         "  ですっ☆"
  264.         " "
  265.         "         マウスをクリックしてねっ☆(^_^)"
  266.     );
  267.     mousewait();
  268.     wind_close();
  269.     cls(0);
  270.     chdir(
  271.         \DATA\CLARINET
  272.     );
  273.     EUP_Play(
  274.         CLARINET.EUP
  275.     );
  276.  
  277.  
  278.     wind_init();
  279.     wrtstr(
  280.         "  あ(^^;又お会いしましたねん♪"
  281.         "  まっだまっだ続くよん(^^;１曲だけね(^^;"
  282.         "  演奏する曲目は・・・"
  283.         "      \DATA\TRM\TRM.EUP"
  284.         "  ですっ☆"
  285.         " "
  286.         "         マウスをクリックしてねっ☆(^_^)"
  287.     );
  288.     mousewait();
  289.     wind_close();
  290.     cls(0);
  291.     chdir(
  292.         \DATA\TRM
  293.     );
  294.     EUP_Play(
  295.         TRM.EUP
  296.     );
  297.  
  298.  
  299.  
  300.     wind_init();
  301.     wrtstr(
  302.         "  此処でちょっと一息入れて・・・"
  303.         "  背景のグラフィックを代えてみましょう(^_^)ﾙﾝ"
  304.         "  作品は、ひろおさんのグラフィックです♪
  305.         " "
  306.         "         マウスをクリックしてねっ☆(^_^)"
  307.     );
  308.     mousewait();
  309.     wind_close();
  310.  
  311.     Graph_View(
  312.         Q:\DATA\HIROGRAP\HIRO3.TK4        
  313.     );
  314.  
  315.  
  316.     Graph_DSP();
  317.     Screen(3);
  318.     cls(0);
  319.     paletteset();
  320.  
  321.     wind_init();
  322.     wrtstr(
  323.         "  今度はどど～んと一気に演奏しちゃう(^_^)ﾙﾝ"
  324.         "  続けて６曲演奏しま～す♪"
  325.         "  以下のディレクトリィに在るＥＵＰファイルです"
  326.         "      \DATA\J_S_BACH\K_FUGE"
  327.         " "
  328.         "         マウスをクリックしてねっ☆(^_^)"
  329.     );
  330.     mousewait();
  331.     wind_close();
  332.     cls(0);
  333.     chdir(
  334.         \DATA\J_S_BACH\K_FUGE
  335.     );
  336.     EUP_Play(
  337.         FUGE_05F.EUP
  338.         FUGE_01F.EUP
  339.         O_CHORAL.EUP
  340.         FUGE_02F.EUP
  341.         FUGE_03F.EUP
  342.         FUGE_04F.EUP
  343.     );
  344.  
  345.     wind_init();
  346.     wrtstr(
  347.         "  今度は続けて３曲だよぉ(^_^)ﾙﾝ"
  348.         "  以下のディレクトリィに在るＥＵＰファイルです"
  349.         "      \DATA\J_S_BACH\M_OFFER"
  350.         " "
  351.         "         マウスをクリックしてねっ☆(^_^)"
  352.     );
  353.     mousewait();
  354.     wind_close();
  355.     cls(0);
  356.     chdir(
  357.         \DATA\J_S_BACH\M_OFFER
  358.     );
  359.     EUP_Play(
  360.         MO1A3.EUP
  361.         MO1B.EUP
  362.         MO1D.EUP
  363.     );
  364.  
  365.     wind_init();
  366.     wrtstr(
  367.         "  暫く１曲だけが続くよぉ～(^_^;)ｱｾｱｾｯ"
  368.         "  演奏する曲目は・・・"
  369.         "      \DATA\CONS\CONS.EUP"
  370.         "  ですっ☆"
  371.         " "
  372.         "          マウスをクリックしてねっ☆(^_^)"
  373.     );
  374.     mousewait();
  375.     wind_close();
  376.     cls(0);
  377.     chdir(
  378.         \DATA\CONS
  379.     );
  380.     EUP_Play(
  381.         CONS.EUP
  382.     );
  383.  
  384.     wind_init();
  385.     wrtstr(
  386.         "  この曲ってどんな曲なのかな??(^_^)"
  387.         "  早く聴きたいなっ☆"
  388.         "  演奏する曲目は・・・"
  389.         "      \DATA\MACHIHA\MACHIHA.EUP"
  390.         "  ですっ☆"
  391.         " "
  392.         "        マウスをクリックしてねっ☆(^_^)"
  393.     );
  394.     mousewait();
  395.     wind_close();
  396.     cls(0);
  397.     chdir(
  398.         \DATA\MACHIHA
  399.     );
  400.     EUP_Play(
  401.         MACHIHA.EUP
  402.     );
  403.  
  404.  
  405.     wind_init();
  406.     wrtstr(
  407.         "  今度も１曲だけよん(^_^)"
  408.         "  じっくり聴いてね☆"
  409.         "  演奏する曲目は・・・"
  410.         "      \DATA\C_HAT\C_HAT.EUP"
  411.         "  ですっ☆"
  412.         " "
  413.         "        マウスをクリックしてねっ☆(^_^)"
  414.     );
  415.     mousewait();
  416.     wind_close();
  417.     cls(0);
  418.     chdir(
  419.         \DATA\C_HAT
  420.     );
  421.     EUP_Play(
  422.         C_HAT.EUP
  423.     );
  424.  
  425.     wind_init();
  426.     wrtstr(
  427.         "  これって漢字で書くと挽歌だよね？？(^_^;)"
  428.         "  演奏する曲目は・・・"
  429.         "      \DATA\BANKA\BANKA.EUP"
  430.         "  ですっ☆"
  431.         " "
  432.         "        マウスをクリックしてねっ☆(^_^)"
  433.     );
  434.     mousewait();
  435.     wind_close();
  436.     cls(0);
  437.     chdir(
  438.         \DATA\BANKA
  439.     );
  440.     EUP_Play(
  441.         BANKA.EUP
  442.     );
  443.  
  444.  
  445.     wind_init();
  446.     wrtstr(
  447.         "  う～～ん(^_^;)難しいタイトルねっ☆"
  448.         "  演奏する曲目は・・・"
  449.         "      \DATA\PARANEAN\PARANEAN.EUP"
  450.         "  ですっ☆"
  451.         " "
  452.         "        マウスをクリックしてねっ☆(^_^)"
  453.     );
  454.     mousewait();
  455.     wind_close();
  456.     cls(0);
  457.     chdir(
  458.         \DATA\PARANEAN
  459.     );
  460.     EUP_Play(
  461.         PARANEAN.EUP
  462.     );
  463.  
  464.     wind_init();
  465.     wrtstr(
  466.         "  １曲は続くよぉどっこまでもぉ～♪"
  467.         "                (^_^;)"
  468.         "  演奏する曲目は・・・"
  469.         "      \DATA\GULF\GULF.EUP"
  470.         "  ですっ☆"
  471.         " "
  472.         "        マウスをクリックしてねっ☆(^_^)"
  473.     );
  474.     mousewait();
  475.     wind_close();
  476.     cls(0);
  477.     chdir(
  478.         \DATA\GULF
  479.     );
  480.     EUP_Play(
  481.         GULF.EUP
  482.     );
  483.  
  484.  
  485.     wind_init();
  486.     wrtstr(
  487.         "  これも漢字で書くと迷い子だねっ(^_^)"
  488.         "  簡単な漢字なら分かるのねっ(^_^;)"
  489.         "  演奏する曲目は・・・"
  490.         "      \DATA\MAYOIGO\MAYOIGO.EUP"
  491.         "  ですっ☆"
  492.         " "
  493.         "        マウスをクリックしてねっ☆(^_^)"
  494.     );
  495.     mousewait();
  496.     wind_close();
  497.     cls(0);
  498.     chdir(
  499.         \DATA\MAYOIGO
  500.     );
  501.     EUP_Play(
  502.         MAYOIGO.EUP
  503.     );
  504.  
  505.     wind_init();
  506.     wrtstr(
  507.         "  良くお会いしますねっ(^_^)ﾅｾﾞﾀﾞﾛｳ?"
  508.         "  今度も１曲だけなのねっ☆"
  509.         "  演奏する曲目は・・・"
  510.         "      \DATA\NOIR\NOIR.EUP"
  511.         "  ですっ☆"
  512.         " "
  513.         "        マウスをクリックしてねっ☆(^_^)"
  514.     );
  515.     mousewait();
  516.     wind_close();
  517.     cls(0);
  518.     chdir(
  519.         \DATA\NOIR
  520.     );
  521.     EUP_Play(
  522.         NOIR.EUP
  523.     );
  524.  
  525.     wind_init();
  526.     wrtstr(
  527.         "  これも漢字で書いたら記憶だねっ☆(^_^)"
  528.         "  どう？偉いでしょっ(^_^)ﾙﾝﾙﾝｯ"
  529.         "  演奏する曲目は・・・"
  530.         "      \DATA\KIOKU\KIOKU.EUP"
  531.         "  ですっ☆"
  532.         " "
  533.         "        マウスをクリックしてねっ☆(^_^)"
  534.     );
  535.     mousewait();
  536.     wind_close();
  537.     cls(0);
  538.     chdir(
  539.         \DATA\KIOKU
  540.     );
  541.     EUP_Play(
  542.         KIOKU.EUP
  543.     );
  544.  
  545.  
  546.     wind_init();
  547.     wrtstr(
  548.         "  あっ(^^)この英語知ってるよぉ♪"
  549.         "  『さよならっ☆』って言う意味だねっ(^_^)"
  550.         "  演奏する曲目は・・・"
  551.         "      \DATA\GOODBYEC\GOODBYEC.EUP"
  552.         "  ですっ☆"
  553.         " "
  554.         "        マウスをクリックしてねっ☆(^_^)"
  555.     );
  556.     mousewait();
  557.     wind_close();
  558.     cls(0);
  559.     chdir(
  560.         \DATA\GOODBYEC
  561.     );
  562.     EUP_Play(
  563.         GOODBYEC.EUP
  564.     );
  565.  
  566.  
  567.     wind_init();
  568.     wrtstr(
  569.         "  今度は続けて３曲だねっ(^_^)♪"
  570.         "  以下のディレクトリィに在るＥＵＰファイルです"
  571.         "      \DATA\KOMOREBI"
  572.         " "
  573.         "        マウスをクリックしてねっ☆(^_^)"
  574.     );
  575.     mousewait();
  576.     wind_close();
  577.     cls(0);
  578.     chdir(
  579.         \DATA\KOMOREBI
  580.     );
  581.     EUP_Play(
  582.         DANCE2.EUP
  583.         KOMOREBI.EUP
  584.         YUKUE.EUP
  585.     );
  586.  
  587.     wind_init();
  588.     wrtstr(
  589.         "  わぁ(^_^)この曲知ってるっ♪"
  590.         "  カッコイイこぶちゃのテーマなんだよっ(^_^)"
  591.         "      \DATA\KOBUCHA\KOBUCHA.EUP"
  592.         " "
  593.         "        マウスをクリックしてねっ☆(^_^)"
  594.     );
  595.     mousewait();
  596.     wind_close();
  597.     cls(0);
  598.     chdir(
  599.         \DATA\KOBUCHA
  600.     );
  601.     EUP_Play(
  602.         KOBUCHA.EUP
  603.     );
  604.  
  605.  
  606.     wind_init();
  607.     wrtstr(
  608.         "  この曲って『眠り』って書くのねっ☆(^_^)"
  609.         "  聴いたら眠たくなっちゃうだろ～か(^_^;)"
  610.         "      \DATA\NEMURI\NEMURI.EUP"
  611.         " "
  612.         "        マウスをクリックしてねっ☆(^_^)"
  613.     );
  614.     mousewait();
  615.     wind_close();
  616.     cls(0);
  617.     chdir(
  618.         \DATA\NEMURI
  619.     );
  620.     EUP_Play(
  621.         NEMURI.EUP
  622.     );
  623.  
  624.  
  625.     wind_init();
  626.     wrtstr(
  627.         "  最後の３曲だよ～♪"
  628.         "  頑張って聴いてねっっ(^_^)ﾌｧｲﾄｯ"
  629.         "  以下のディレクトリィに在るＥＵＰファイルです"
  630.         "      \OH_TOWNS\GEAR_BGM"
  631.         " "
  632.         "        マウスをクリックしてねっ☆(^_^)"
  633.     );
  634.     mousewait();
  635.     wind_close();
  636.     cls(0);
  637.     chdir(
  638.         \OH_TOWNS\GEAR_BGM
  639.     );
  640.     EUP_Play(
  641.         COMP01A.EUP
  642.         COMP02A.EUP
  643.         COMP03A.EUP
  644.     );
  645.  
  646.     chdir(
  647.         \tugi
  648.     );
  649.     EUPEND.TUG
  650. }
  651.